AMOSTRA DE ARTIGOS CIENTÍFICOS
| Timespan |
1997:2022 |
| Sources (Journals, Books, etc) |
268 |
| Documents |
890 |
| Average years from publication |
1.94 |
| Average citations per documents |
8.304 |
| Average citations per year per doc |
2.334 |
| References |
39189 |
| Keywords Plus (ID) |
3164 |
| Author’s Keywords (DE) |
2260 |
| Authors |
2909 |
| Author Appearances |
4477 |
| Authors of single-authored documents |
57 |
| Authors of multi-authored documents |
2852 |
| Single-authored documents |
62 |
| Documents per Author |
0.306 |
| Authors per Document |
3.27 |
| Collaboration Index |
3.44 |
PRODUTIVIDADE DOS AUTORES
# Geração de Dados de Produtividade dos Autores:
curva_lotka <- lotka(resultado)
curva_lotka_observada <- tibble::as_tibble(curva_lotka[["AuthorProd"]]) %>%
dplyr::rename('Articles' = N.Articles,
'Authors' = N.Authors,
'Observed' = Freq)
curva_lotka_teorica <- tibble::as_tibble(10^(log10(curva_lotka$C)-2*log10(curva_lotka$AuthorProd[,1]))) %>%
dplyr::rename('Theoretical' = value)
lotka_consolidado <- cbind(curva_lotka_observada,
curva_lotka_teorica) %>%
dplyr::mutate(Observed = round(as.numeric(Observed), 4),
Theoretical = round(as.numeric(Theoretical), 4)) %>%
dplyr::select(!Authors) %>%
tidyr::pivot_longer(-Articles,
names_to = 'Type',
values_to = 'Value')
# Gerando Gráfico de Produtividade dos Autores:
grafico_lotka <- lotka_consolidado %>%
ggplot(mapping = aes(x = Articles, y = Value, color = Type)) +
geom_line(size = 0.5) +
geom_point(size = 1.5) +
labs(color = '',
x = 'Articles',
y = 'Freq. of Authors') +
theme(legend.position = 'bottom')
grafico_lotka

# Beta coefficient estimate
#L$Beta
# Constant
#L$C
# Goodness of fit
#L$R2
# P-value of K-S two sample test
#L$p.value